unit segLog;

interface

uses prsBase, Rtti, prsAtributos, segUsuario;

type
  TAcao = (taInclusao, taAlteracao, taExclusao, taConsulta, taAcesso);

  [AttTabela('Log')]
  TLog = class(TTabela)
  private
    FUsuario: integer;
    FData: TDateTime;
    FAcao: string;
    FTabela: string;
    FRegistro: integer;
    FDescricao: string;
    procedure SetUsuario(const Value: integer);
    procedure SetData(const Value: TDateTime);
    procedure SetAcao(const Value: string);
    procedure SetTabela(const Value: string);
    procedure SetRegistro(const Value: Integer);
    procedure SetDescricao(const Value: string);
  public
    [AttPK]
    property Usuario: integer read FUsuario write SetUsuario;
    [AttPK]
    property Data: TDateTime read FData write SetData;
    property Acao: string read FAcao write SetAcao;
    property Tabela: string read FTabela write SetTabela;
    property Registro: integer read FRegistro write SetRegistro;
    property Descricao: string read FDescricao write SetDescricao;
  end;

implementation

{ TLog }

procedure TLog.SetAcao(const Value: string);
begin
  FAcao := Value;
end;

procedure TLog.SetData(const Value: TDateTime);
begin
  FData := Value;
end;

procedure TLog.SetDescricao(const Value: string);
begin
  FDescricao := Value;
end;

procedure TLog.SetRegistro(const Value: Integer);
begin
  FRegistro := Value;
end;

procedure TLog.SetTabela(const Value: string);
begin
  FTabela := Value;
end;

procedure TLog.SetUsuario(const Value: integer);
begin
  FUsuario := Value;
end;

end.
